VBA Excel Menampilkan Data Sheet1-Sheet2-Sheet3 di Userform Lisbox Excel

Dolanan Excel - Hai sahabat Dolanan Excel, Bagaimana kabarmu hari ini ? Semoga dalam keadaan sehat dan banyak rizki..

Oke, Pada kesempatan kali ini, kita akan belajar Menampilkan Data Sheet Di Userform tepatnya Menampilkan Data Sheet Excel Kedalam ListBox.

Bagaimana Cara Menampilkan Data Di Sheet Excel Kedalam ListBox Userform ?

Pertanyaan diatas kami dapat dari salah satu anggota Group WA kami yaitu group WA XML Excel Code

Okeh masseh..tanpa panjang lebar, mari kita belajar dan berexperimen

Menampilkan Data Sheet1 Sheet2 Sheet3 Excel Kedalam ListBox By OptionButton

Kami anjurkan langsung praktik ya sobat. Pada kesempatan kali ini Admin menggunakan Win10 dan Office 2007

1. Buka Excel Anda
2. Buatlah Data Sheet / Tabel Seperti Gambar Dibawah Ini

3. Kemudian Masuk Ke Jendela VBA Dengan Menekan Alt+F11 atau Menu Developer - Visual Basic
4. Buatlah Userform Seperti Gambar Dibawah ini

5. Masukan Kode Macro Dibawah ini Kedalam Userform

Sub TampilkanSemua()

If OptionButton1.Value = True Then
    Set ipa = Sheets("Sheet1")
ElseIf OptionButton2.Value = True Then
    Set ipa = Sheets("Sheet2")
ElseIf OptionButton3.Value = True Then
    Set ipa = Sheets("Sheet3")
End If

ListBox1.Clear

With ListBox1
    .AddItem
    .ColumnCount = 4
    .List(.ListCount - 1, 0) = "Kode"
    .List(.ListCount - 1, 1) = "Nama"
    .List(.ListCount - 1, 2) = "Alamat"
    .List(.ListCount - 1, 3) = "Kota"
    .ColumnWidths = 55 & ";" & 120 & ";" & 200 & ";" & 110
End With

Set Status = ipa.Range("A3", ipa.Range("A3").End(xlDown))

Set rgTampil = Status.SpecialCells(xlCellTypeVisible)
For Each sTampil In rgTampil
    With ListBox1
        .AddItem
        .List(.ListCount - 1, 0) = sTampil.Value
        .List(.ListCount - 1, 1) = sTampil.Offset(0, 1).Value
        .List(.ListCount - 1, 2) = sTampil.Offset(0, 2).Value
        .List(.ListCount - 1, 3) = sTampil.Offset(0, 3).Value
    End With
Next sTampil

End Sub

Private Sub OptionButton1_Click()
Call TampilkanSemua
End Sub

Private Sub OptionButton2_Click()
Call TampilkanSemua
End Sub
Private Sub OptionButton3_Click()
Call TampilkanSemua
End Sub

6. Selesai dan Silahkan Coba Run atau Tekan F5
7. Simpan Dengan File Name : Menampilkan Data Sheet1-Sheet2-Sheet3 Kedalam ListBox By OptionButton Dengan Extensi Excel Enable Macros (.xlsm) atau Excel Binary Workbook (.xlsb)

Jika Anda melakukan langkah-langkah diatas dengan benar maka sistem akan berjalan dengan normal dan hasilnya akan seperti gambar dibawah ini.

Kemudian Bagaimana Cara Menampakan/Menampilkan Garis Sheet Kedalam ListBox Excel ?

Nantikan kelanjutannya ya :)

Dari alur yang sudah admin jelaskan diatas, apabila Bapak/Ibu Guru masih belum paham dan mengalami kendala/eror dalam mengerjakan katrol nilai siswa, silahkan tuliskan di kolom komentar atau Bapak/Ibu bisa menghubungi kami melalui email : aplikasisyaref@gmail.com

Demikianlah pembahasan dari kami seputar VBA Excel Menampilkan Data Sheet1-Sheet2-Sheet3 di Userform Lisbox Excel, Semoga artikel ini yang admin bagikan disini bisa berguna dan bermanfaat.

2017 | Dolanan Excel

Share :